home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / LogoMotion101.sit / LogoMation 1.0.1 ƒ / Examples / About Box / About Box
Encoding:
Text File  |  1992-12-08  |  1.9 KB  |  75 lines  |  [UVtx/UVtl]
  1. nana = "na na"
  2. // nana = ""
  3.  
  4. about_DefPict()
  5. about_MoveLM()
  6.  
  7.  
  8. ///////////////////////////////////////////////////////
  9. Function about_pLM(n,  r1,g1,b1,  r2,g2,b2)
  10.     Picture "about_LogoMation" . n
  11.         Pen fontname="Helvetica", fontsize=40
  12.         Color r1,g1,b1
  13.         Print "L", move
  14.         Pen fontsize=40
  15.         Print "o", move
  16.         Pen fontsize=30
  17.         Print "g", move
  18.         Pen fontsize=20
  19.         Print "o", move
  20.         Pen fontname="Times", fontsize=40, fontstyle="Italic"
  21.         Color r2,g2,b2
  22.         Print "M", move
  23.         Pen fontsize=40
  24.         Print "a", move
  25.         Pen fontsize=35
  26.         Print "t", move
  27.         Pen fontsize=30
  28.         Print "i", move
  29.         Pen fontsize=25
  30.         Print "o", move
  31.         Pen fontsize=20
  32.         Print "n", move
  33.  
  34. ///////////////////////////////////////////////////////
  35.  
  36. Function about_DefPict()
  37.     Picture "about_Copyright"
  38.         Pen fontname="Times", fontsize=15, fontstyle="Italic"
  39.         Color 65535,26228,7080
  40.         Print "©"
  41.     about_pLM(0, 53918,53740,61439, 6566,52322,57343)
  42.     about_pLM(1, 25465,6798,65535, 10767,46331,65535)
  43.  
  44.  
  45. ///////////////////////////////////////////////////////
  46. Function about_MoveLM(w,s)
  47.     Up
  48.     Goto -width()/2, height()/2-30,-90
  49.     Down
  50.     Pen picture="about_LogoMation0", end="copy", trail="yes", speed=650
  51.     Circle 150
  52.     If (nana ≠ "")
  53.         Sound nana,nowait
  54.     Else
  55.         Repeat 22
  56.             Sound "Pop",nowait
  57.     Forward 340
  58.     Sound "", wait
  59.     Sound "Wild Eep", nowait
  60.     Pen picture="about_LogoMation1", end="copy",trail="no",speed=60
  61.     Forward 40
  62.     Sound "", wait
  63.     Sound "Quack", nowait
  64.     Up
  65.     X = x()+165
  66.     Y = y()+10
  67.     Goto -width()/2,-100,0
  68.     Down
  69.     Pen picture="about_Copyright",speed=650
  70.     Goto X,Y,0
  71.     Up
  72.     Sound "Indigo"
  73.     Goto x()-350,y()-100,0
  74.     Color 0,0,0
  75.     Print "LogoMation 0.3ß, Copyright © 1992 Yuval and Chuck Shavit"